home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / intuition / Window.st < prev    next >
Encoding:
Text File  |  2000-05-16  |  5.7 KB  |  213 lines
  1. "--------------------------------------------------"
  2. " Window Class implements control of Amiga Windows."
  3. "--------------------------------------------------"
  4.  
  5. Class Window :Glyph
  6. ! 
  7.   leftEdge   topEdge width  height detailPen   blockPen    flags
  8.   iDCMPFlags title   mouseX mouseY screenTitle windowTitle
  9.  
  10.   reqCount ptrWidth  ptrHeight xOffset   yOffset bitMap 
  11.   minWidth minHeight maxWidth  maxHeight chkMark
  12. !
  13. [
  14.    close
  15.       <primitive 181 0 windowTitle>.
  16.       windowTitle <- nil
  17. |
  18.    setPointer: spritePtr size: sizePt offset: offPt ! w h x y !
  19.       w <- sizePt x.
  20.       h <- sizePt y.
  21.       x <- offPt  x.
  22.       y <- offPt  y.
  23.       <primitive 181 8 spritePtr h w x y windowTitle>
  24. |
  25.    addGadget: gadgetName type: gadgetType
  26.       "gadgetType: 0 = Boolean, 1 = String & 2 = Porportional:"
  27.       <primitive 181 9 gadgetName gadgetType windowTitle>
  28. |
  29.    setFirstGadget: newGadget
  30.       <primitive 181 3 12 newGadget windowTitle>
  31. |
  32.    refreshGadgets
  33.       <primitive 181 4 'RefreshGadgets' windowTitle>
  34. |
  35.    refreshWindowFrame
  36.       <primitive 181 4 'RefreshWindowFrame' windowTitle>
  37. |
  38.    removeGadget: gadgetName type: gadgetType
  39.       <primitive 181 10 gadgetName gadgetType windowTitle>
  40. |
  41.    reportMouse: boolvalue
  42.       <primitive 181 11 boolvalue windowTitle>
  43. |
  44.    getMouseCoords
  45.       mouseX <- <primitive 181 2 8 windowTitle>.
  46.       mouseY <- <primitive 181 2 9 windowTitle>.
  47.       ^ mouseX @ mouseY
  48. |
  49.    printIText: iTextName at: aPoint
  50.       <primitive 181 14 iTextName (aPoint x) (aPoint y) windowTitle>
  51. |
  52.    reOpenWindow
  53.       <primitive 181 15 windowTitle>      
  54. |
  55.    handleIntuition
  56.       ^ <primitive 181 16 windowTitle>
  57. |
  58.    addDMRequest: dMRequesterName
  59.       <primitive 181 5 'AddDMRequest' dMRequesterName windowTitle>
  60. |
  61.    removeDMRequest
  62.       <primitive 181 4 'RemoveDMRequest' windowTitle>
  63. |
  64.    windowToBack
  65.       <primitive 181 4 'WindowToBack' windowTitle>
  66. |
  67.    windowToFront
  68.       <primitive 181 4 'WindowToFront' windowTitle>
  69. |
  70.    showRequester: requesterName
  71.       <primitive 181 5 'ShowRequester' requesterName windowTitle>
  72. |
  73.    addMenuStrip: menuName
  74.       <primitive 181 5 'AddMenuStrip' menuName windowTitle>
  75. |
  76.    removeMenuStrip
  77.       <primitive 181 4 'RemoveMenuStrip' windowTitle>
  78. |
  79.    moveWindow: deltaPt
  80.       <primitive 181 6 'MoveWindow' (deltaPt x) (deltaPt y) windowTitle>
  81. |
  82.    infoReq: msg title: t
  83.       <primitive 181 13 msg t 'OKAY'>
  84. |
  85.    yesNoReq: msg title: t
  86.       ^ <primitive 181 13 msg t 'YES|NO'>
  87. |
  88.    getUserChoice: msg title: t choices: bstr
  89.       ^ <primitive 181 13 msg t bstr>
  90. |
  91.    changeWindowSize: deltaPt
  92.       <primitive 181 6 'SetWindowSize' (deltaPt x) (deltaPt y) windowTitle>
  93. |
  94.    getOrigin
  95.       leftEdge <- <primitive 181 2 0 windowTitle>.
  96.       topEdge  <- <primitive 181 2 1 windowTitle>.
  97.       ^ leftEdge @ topEdge
  98. |
  99.    getWindowSize
  100.       width  <- <primitive 181 2 2 windowTitle>.
  101.       height <- <primitive 181 2 3 windowTitle>.
  102.       ^ width @ height
  103. |
  104.    getWindowPens
  105.       detailPen <- <primitive 181 2 4 windowTitle>.
  106.       blockPen  <- <primitive 181 2 5 windowTitle>.
  107.       ^ detailPen @ blockPen
  108. |
  109.    getFlags
  110.       ^ flags <- <primitive 181 2 6 windowTitle>
  111. |
  112.    getIDCMPFlags
  113.       ^ iDCMPFlags <- <primitive 181 2 7 windowTitle>
  114. |
  115.    beginRefresh
  116.       <primitive 181 4 'BeginRefresh' windowTitle>
  117. |
  118.    endRefresh
  119.       <primitive 181 4 'EndRefresh' windowTitle>
  120. |     
  121.    remakeDisplay
  122.       <primitive 181 4 'RemakeDisplay' windowTitle>
  123. |     
  124.    rethinkDisplay
  125.       <primitive 181 4 'RethinkDisplay' windowTitle>
  126. |
  127.    setWindowOrigin: newPoint ! x y !
  128.       x <- newPoint x.
  129.       y <- newPoint y.
  130.       <primitive 181 3 0 x windowTitle>.
  131.       <primitive 181 3 1 y windowTitle>.
  132.       leftEdge <- x.
  133.       topEdge  <- y
  134. |
  135.    setWindowSize: sizePoint ! w h !
  136.       w <- sizePoint x.
  137.       h <- sizePoint y.
  138.       <primitive 181 3 2 w windowTitle>.
  139.       <primitive 181 3 3 h windowTitle>.
  140.       width  <- w.
  141.       height <- h
  142. |
  143.    setWindowPens: newPensPoint ! fp bp !
  144.       fp <- newPensPoint x.
  145.       bp <- newPensPoint y.
  146.       <primitive 181 3 4 fp windowTitle>.
  147.       <primitive 181 3 5 bp windowTitle>.
  148.       detailPen <- fp.
  149.       blockPen  <- bp
  150. |
  151.    setFlags: newFlags
  152.       <primitive 181 3 6 newFlags windowTitle>.
  153.       flags <- newFlags
  154. |
  155.    setIDCMPFlags: newIDCMP
  156.       <primitive 181 3 7 newIDCMP windowTitle>.
  157.       iDCMPFlags <- newIDCMP
  158. |
  159.    setMinSize: newMinPoint ! minw minh !
  160.       minw <- newMinPoint x.
  161.       minh <- newMinPoint y.
  162.       <primitive 181 3 8 minw windowTitle>.
  163.       <primitive 181 3 9 minh windowTitle>.
  164.       minWidth  <- minw.
  165.       minHeight <- minh      
  166. |
  167.    setMaxSize: newMaxPoint ! maxw maxh !
  168.       maxw <- newMaxPoint x.
  169.       maxh <- newMaxPoint y.
  170.       <primitive 181 3 10 maxw windowTitle>.
  171.       <primitive 181 3 11 maxh windowTitle>.
  172.       maxWidth  <- maxw.
  173.       maxHeight <- maxh
  174. |
  175.    getReqCount
  176.       ^ reqCount <- <primitive 181 2 11 windowTitle>
  177. |
  178.    getPointerSize
  179.       ptrWidth  <- <primitive 181 2 12 windowTitle>.
  180.       ptrHeight <- <primitive 181 2 13 windowTitle>.
  181.       ^ ptrWidth @ ptrHeight
  182. |
  183.    setCheckMark: newCheckMark
  184.       <primitive 181 3 13 newCheckMark windowTitle>.
  185.       chkMark <- newCheckMark
  186. |
  187.    getWindowOffset
  188.       xOffset <- <primitive 181 2 14 windowTitle>.
  189.       yOffset <- <primitive 181 2 15 windowTitle>.
  190.       ^ xOffset @ yOffset
  191. |
  192.    setBitMap: newBitMap
  193.       <primitive 181 3 14 newBitMap windowTitle>.
  194.       bitMap <- newBitMap
  195. |
  196.    getTitle
  197.       ^ title <- <primitive 181 2 10 windowTitle>
  198. |      
  199.    changeTitle: newTitle             "This might be broken!!"
  200.       <primitive 181 12 windowTitle newTitle>.
  201.       windowTitle <- newTitle
  202. |
  203.    getScreenTitle
  204.       ^ screenTitle <- <primitive 181 2 16 windowTitle>
  205. |
  206.    new: newWindowTitle
  207.       windowTitle <- newWindowTitle.
  208.       ^ self
  209. |
  210.    openOnScreen: screenName
  211.       <primitive 181 1 screenName windowTitle>
  212. ]
  213.